home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 October
/
1987-10.d64
/
cricket demo #2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
536b
|
24 lines
5 print"[147][144]"
10 rem rnd(0) demo
20 k=0
30 forj=49152to49162:k=k+peek(j):next
40 ifk<>1210thenload"cricket",8,1
50 poke 56,140:clr
60 hr=49152:hz=hr+3:hc=hr+6:hx=hr+9:hp=hr+12
70 print"first, a demo for rnd(0)
80 [153]"press any key
90 s=0:gosub140
100 print:print"now, rnd(1), which is more random
110 [153]"press any key
120 s=1:gosub140
130 print"[147]":end
140 gosub210
150 print"rnd("+chr$(48+s)+")"
160 syshr,1:syshz:syshc,4,15
170 forj=2to317:fork=8to12step2:syshx,1,j,k:next:next
180 forj=0to5:cc=peek(1024+j):syshp,cc,j*8+6,6:next
190 forj=1to1000:x=rnd(s)*320:y=rnd(s)*200
200 syshx,1,x,y:next:syshc,1,2
210 geta$:ifa$=""then210
220 syshr,0:return